(atomic-change-group): Prevent undo list truncation.

diff --git a/lisp/subr.el b/lisp/subr.el
index a9674bbba3662351dfa141ffd34dbc863a3a5864..b4bd4a0150c9c630b37479ccdf6aa3ef881b9fa6 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1802,6 +1802,10 @@ user can undo the change normally."
   (let ((handle (make-symbol "--change-group-handle--"))
        (success (make-symbol "--change-group-success--")))
     `(let ((,handle (prepare-change-group))
+          ;; Don't truncate any undo data in the middle of this.
+          (undo-outer-limit nil)
+          (undo-limit most-positive-fixnum)
+          (undo-strong-limit most-positive-fixnum)
           (,success nil))
        (unwind-protect
           (progn